object Main: TMain Left = 316 Top = 192 Width = 504 Height = 417 Caption = 'SCAN : Table Scanning Utility, Ver 1.1' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 PixelsPerInch = 96 Position = poScreenCenter TextHeight = 16 object DBGrid1: TDBGrid Left = 0 Top = 66 Width = 496 Height = 140 Align = alTop DataSource = DataSource1 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnEnter = DBGrid1Enter end object DBGrid2: TDBGrid Left = 0 Top = 231 Width = 496 Height = 140 Align = alClient DataSource = DataSource2 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnEnter = DBGrid2Enter end object Panel1: TPanel Left = 0 Top = 0 Width = 496 Height = 41 Align = alTop Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 object SpeedHelp: TSpeedButton Left = 248 Top = 8 Width = 25 Height = 25 Hint = 'Help' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF33333333333777773333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedHelpClick end object SpeedClose: TSpeedButton Left = 272 Top = 8 Width = 25 Height = 25 Hint = 'Exit' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedCloseClick end object BitBtn1: TBitBtn Left = 313 Top = 7 Width = 80 Height = 26 Hint = 'Compare selected tables' Caption = '&Compare' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303 333333333333337FF3333333333333903333333333333377FF33333333333399 03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999 99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999 99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099 03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003 33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333 33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333 3333777777333333333333333333333333333333333333333333} NumGlyphs = 2 Style = bsNew end object DBNavigator1: TDBNavigator Left = 8 Top = 8 Width = 241 Height = 25 DataSource = DataSource1 Ctl3D = False ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 1 end object BitBtn2: TBitBtn Left = 400 Top = 7 Width = 80 Height = 26 Hint = 'Clear the table selections' Caption = 'Clear' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BitBtn2Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B55555555555555750000} NumGlyphs = 2 Style = bsNew end end object Panel2: TPanel Left = 0 Top = 41 Width = 496 Height = 25 Align = alTop Alignment = taLeftJustify Caption = ' Master table' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 object SpeedButton1: TSpeedButton Left = 72 Top = 0 Width = 25 Height = 25 Hint = 'Select the MASTER table' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object Label1: TLabel Left = 104 Top = 6 Width = 56 Height = 13 Caption = 'Select table' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object Panel3: TPanel Left = 0 Top = 206 Width = 496 Height = 25 Align = alTop Alignment = taLeftJustify Caption = ' Table being compared to Master' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 object SpeedButton2: TSpeedButton Left = 168 Top = 0 Width = 25 Height = 25 Hint = 'Select another table' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object Label2: TLabel Left = 201 Top = 6 Width = 56 Height = 13 Caption = 'Select table' Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object Table1: TTable Left = 48 Top = 120 end object Table2: TTable Left = 48 Top = 288 end object DataSource1: TDataSource DataSet = Table1 Left = 80 Top = 120 end object DataSource2: TDataSource DataSet = Table2 Left = 80 Top = 288 end object OpenDialog1: TOpenDialog Filter = 'Paradox|*.db' Title = 'Select MASTER table' Left = 16 Top = 120 end object OpenDialog2: TOpenDialog Filter = 'Paradox|*.db' Title = 'Select table being compared' Left = 16 Top = 288 end object MainMenu1: TMainMenu Left = 112 Top = 120 object File1: TMenuItem Caption = '&File' object SelectMastertable1: TMenuItem Caption = 'Select &Master table..' OnClick = SpeedButton1Click end object SelecttabletoComparewithMaster1: TMenuItem Caption = 'Select &other table to compare with Master..' OnClick = SpeedButton2Click end object N3: TMenuItem Caption = '-' end object Comparethetables1: TMenuItem Caption = '&Compare the tables..' OnClick = BitBtn1Click end object N1: TMenuItem Caption = '-' end object Cleartableselections1: TMenuItem Caption = 'Clear table &selections..' OnClick = BitBtn2Click end object N2: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = SpeedCloseClick end end object Help1: TMenuItem Caption = '&Help' object Contents: TMenuItem Caption = '&Contents..' OnClick = SpeedHelpClick end object N4: TMenuItem Caption = '-' end object About1: TMenuItem Caption = '&About' OnClick = About1Click end end end end